﻿''' <summary>
''' 共有フォルダーリスト画面のフォームです。
''' </summary>
''' <remarks></remarks>
Friend NotInheritable Class VolumeList

#Region " パブリックコンストラクター "
  ''' <summary>
  ''' VolumeList クラスの新しいインスタンスを初期化します。
  ''' </summary>
  ''' <remarks></remarks>
  Public Sub New()
    ' この呼び出しはデザイナーで必要です。
    InitializeComponent()
    ' InitializeComponent() 呼び出しの後で初期化を追加します。

    Me.FolderBindingSource.DataSource = DirectoryAccess.GetVolumes()  '共有フォルダーを取得
    Me.CountLabel.Text = String.Format("{0} 個のオブジェクト", Me.FolderBindingSource.Count)
  End Sub
#End Region

#Region " イベントハンドラ "
  Private Sub FolderListBox_SelectedIndexChanged(sender As Object, e As EventArgs) Handles FolderListBox.SelectedIndexChanged
    If Me.FolderListBox.SelectedIndex >= 0 Then
      Dim folder = DirectCast(Me.FolderBindingSource.Current, Volume)   '選択された共有フォルダー
      Me.KeywordTextBox.Lines = folder.Keywords
    End If
  End Sub
#End Region
End Class